10 REM ********************************
20 REM ** HI-PRINT ROUTINE FUER C 64 **
30 REM ** & MPS-801 VON              **
40 REM ** F.KULZER                   **
50 REM ** GENERIERT PROGRAMM AUF     **
60 REM ** DISK/VC-1541               **
70 REM ********************************
80 FOR I=1 TO 290:READ A
90 S=S+A
100 NEXT I:IF S<>30516 THEN PRINT"FEHLER IN DATAS !!":END
110 RESTORE
120 OPEN 2,8,2,"HI-PRINT,P,W"
130 PRINT#2,CHR$(0);CHR$(13);:REM STARTADRESSE
140 FOR I=1 TO 290:READ A
150 PRINT#2,CHR$(A);:NEXT I
160 CLOSE 2:END
170 REM--------------------------------
180 DATA169,127,162,4,160,0,32,186,255,32,192,255,162,127,134,103,32,201,255
190 DATA169,255,133,97,169,7,133,253,169,28,133,151,169,0,141,18,14,169,40
200 DATA141,20,14,162,4,189,182,13,32,210,255,202,16,247,169,0,133,99,133,100
210 DATA173,18,14,133,101,169,0,133,254,165,99,166,100,164,101,32,187,13,160
220 DATA0,177,172,166,254,157,22,14,230,101,232,134,254,228,253,208,229,169
230 DATA0,160,7,166,253,30,22,14,42,202,16,249,37,97,9,128,32,210,255,136,16
240 DATA237,165,99,24,105,8,133,99,144,2,230,100,206,20,14,208,181,169,13,32
250 DATA210,255,173,18,14,24,105,7,141,18,14,198,151,240,3,76,36,13,169,4,197
260 DATA253,240,12,133,253,169,1,133,151,169,15,133,97,208,235,169,15,32,210
270 DATA255,169,127,76,204,255,80,0,16,27,8,133,20,134,21,152,74,74,74,170
280 DATA189,244,13,133,173,138,41,3,170,189,14,14,133,172,152,41,7,24,101,172
290 DATA133,172,165,20,41,248,133,99,169,32,5,173,133,173,24,165,172,101,99
300 DATA133,172,165,173,101,21,133,173,96,0,1,2,3,5,6,7,8,10,11,12,13,15,16
310 DATA17,18,20,21,22,23,25,26,27,28,30,31,0,64,128,192,161,0,17,0,0,0,0,128
320 DATA0,0,0,0,0,255,0,255